home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / banker31.zip / RESET.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-04-09  |  600b  |  36 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  600 bytes  01/29/123  04:31:22pm
  3. '! Code Segment Size  :237 bytes
  4. '! Data Segment Size  :5113 bytes
  5. '! String Segment Size:363 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Dim ur4463 As UserRecord
  9.  
  10.       Cls 
  11.       Locate 10, 1
  12.       Print "@0F@    @1B@▌┌──────────────────────────────────────────────────────────────────@10@┐@18@▐@0F@"
  13.       Print "    @1B@▌│                         @1E@BANKER RESET 1.2                         @10@│@18@▐@0F@"
  14.       Print "    @1B@▌└@10@──────────────────────────────────────────────────────────────────┘@18@▐@0F@"
  15.       Print
  16.       Print "@0F@                  Resetting Daily Use Pointers, Please Wait..."
  17.       Delay 1
  18.       GetFirstUser(ur4463, 1213417543)
  19.       If ur4463.NetMailBalance > 0 Then
  20.         ur4463.NetMailBalance = 0
  21.         UpdateUser(ur4463)
  22.       End If
  23.       Do
  24.   145   If Not GetNextUser(ur4463, 1213417543) Then
  25.           Locate 16, 36
  26.           Print "@8C@DONE!"
  27.           Delay 2
  28.           End 
  29.         End If
  30.   189   If ur4463.NetMailBalance > 0 Then
  31.           ur4463.NetMailBalance = 0
  32.           UpdateUser(ur4463)
  33.         End If
  34.   226 Loop
  35.       End 
  36.